home *** CD-ROM | disk | FTP | other *** search
/ Shareware Super Platinum 8 / Shareware Super Platinum 8.iso / mac / PROGTOOL / TIEDEMO3.ZIP;1 / SOURCE / ICON195.TS / ICON195.TS
Encoding:
Text File  |  1993-04-01  |  1.3 KB  |  54 lines
  1. unit    icon195:10    $$ vector graphics/text block
  2. 195        $$ label - return here if invalid input
  3. enable  touch
  4. pause   keys=all
  5. disable touch
  6. if      ((zkey = touch $and$ (ztouchx > 288) $and$ (ztouchy > 115) $and$ (ztouchx < 457) $and$ (ztouchy < 211)))
  7. .       calc    TOUCHBOX _ 0
  8. .       jump    icon141
  9. endif
  10. if      ((zkey = touch $and$ (ztouchx > 471) $and$ (ztouchy > 55) $and$ (ztouchx < 594) $and$ (ztouchy < 71)))
  11. .       calc    TOUCHBOX _ 1
  12. .       do      dctnry
  13. .       branch  195
  14. endif
  15. style   outline
  16. style   thickness,1
  17. style   dash  $$ solid line style
  18. if      zkey = "a"
  19. .       do      menukey1
  20. .       branch  195
  21. endif
  22. if      zkey = "r"
  23. .       do      menukey1
  24. .       branch  195
  25. endif
  26. if      zkey = "q"
  27. .       do      menukey1
  28. .       branch  195
  29. endif
  30. if      zkey = "b"
  31. .       do      menukey1
  32. .       branch  195
  33. endif
  34. if      zkey = "o"
  35. .       do      menukey1
  36. .       branch  195
  37. endif
  38. if      zkey = "n"
  39. .       do      menukey1
  40. .       branch  195
  41. endif
  42. if      zkey = "f"
  43. .       do      menukey1
  44. .       branch  195
  45. endif
  46. if      zkey = "h"
  47. .       do      menukey1
  48. .       branch  195
  49. endif
  50. jump    [zkey = timeup : icon141 : ]
  51. branch  195   $$ not valid input - get again
  52. 195end
  53. disable touch
  54.